1610 POKE788,52:POKE53280,14:POKE53281,6
1620 PRINT"[147]           ICH LADE DIE DATEI":Z=0:DIMNA$(144),NU$(144)
1630 CLOSE2:OPEN2,8,2,"DAT,S,R"
1640 Z=Z+1
1650 INPUT#2,NAA$
1660 IFRIGHT$(NAA$,1)="8"THENNA$(Z)=LEFT$(NAA$,LEN(NAA$)-1):NU$(Z)=",8"
1670 IFRIGHT$(NAA$,2)="81"THENNA$(Z)=LEFT$(NAA$,LEN(NAA$)-2):NU$(Z)=",8,1
1680 [139]ST[178]64[167][160]2:[137]1700
1690 [137]1640
1700 [153]"LOAD";:Z[178]0
1710 [153]"              +  MENUE  WAITSGN"
1720 [153]"             BY SIMON & EDY"
1730 [153][163]5)"SYSCURSOR DOWN  NAECHSTES ELEMENT"
1740 [153][163]5)"SYSCURSOR UP    VORHERIGES ELEMENT"
1750 [153][163]5)"SYSRETURN       WAEHLEN"
1760 [153]"    (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$"
1770 [153]"    (null)                (null)"
1780 [153]"    MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)"
1790 [151]214,15:[151]211,5:[158]58640:[153]NA$(1):Z[178]1
1800 [161]T$:[139]T$[178]""[167]1800
1810 [139]T$[178]""[167]Z[178]Z[170]1:X[178]1:[141]1890:[137]1800
1820 [139]T$[178]"ON"[167]Z[178]Z[171]1:X[178]2:[141]1890:[137]1800
1830 [139]T$[178][199](13)[167][137]1850
1840 [137]1800
1850 [153]"LOAD";:[153]"LOAD"[199](34)NA$(Z)[199](34)NU$(Z)
1860 [153]"POKE646,14:RUN"
1870 [151]631,19:[151]632,13:[151]633,13:[151]198,3:[162]
1880 [143] *** UNTERPROG ***
1890 [139]Z[178]0[167]Z[178]1:[142]
1900 [139]NA$(Z)[178]""[175]X[178]2[167]Z[178]Z[170]1:[142]
1910 [139]Z[178]145[167]Z[178]144:[142]
1920 [139]NA$(Z)[178]""[175]X[178]1[167]Z[178]Z[171]1:[142]
1930 [151]214,15:[151]211,5:[158]58640:[153]"                "
1940 [151]214,15:[151]211,5:[158]58640:[153]NA$(Z):[142]